home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / tafltggr.lha / Install_TAFileTagger < prev    next >
Text File  |  1995-12-03  |  12KB  |  548 lines

  1. ;$VER:Script for TAFileTagger
  2. ;;;; Install_TAFileTagger - TAFileTagger disk installation script for Installer
  3. ;;;;
  4. ;;;; Copyright © 1995 TAFileTagger,
  5. ;;;;                  OMASoft, Germany
  6. ;;;;                  All rights reserved.
  7. ;;;;
  8. ;;;; $Id: TAFileTagger, v 1.1 1995/11/08 20:57:34 jAl Exp $
  9. ;;;;
  10. ;;;; This script has been tested with Installer 1.24:
  11. ;;;;
  12. ;;;;     Installer and Installer project icon
  13. ;;;;     (c) Copyright 1991-93 Commodore-Amiga, Inc.  All Rights Reserved.
  14. ;;;;     Reproduced and distributed under license from Commodore.
  15. ;;;;
  16. ;;;;     INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
  17. ;;;;     NO WARRANTIES ARE MADE.  ALL USE IS AT YOUR OWN RISK.  NO LIABILITY
  18. ;;;;     OR RESPONSIBILITY IS ASSUMED.
  19. ;;;;
  20. ;;;; Use following Icon tooltypes / Command line options:
  21. ;;;; APPNAME=TAFileTagger
  22. ;;;; MINUSER=AVERAGE
  23. ;;;;
  24. (welcome "    Welcome to the " @app-name " 1.1 shareware version installation.\n")
  25. ;;;;
  26. ;;;; What we are?
  27. ;;;;
  28. (set app-name (cat @app-name " 1.1 shareware version"))
  29.  
  30. (complete 0) (transcript "On making " app-name ".")
  31. (set @default-dest "BBS:")
  32.  
  33. ; Texts
  34.  
  35. (set #Intro-Txt
  36.  (cat "\n\nWelcome to \n"
  37.   "TAFileTagger\n"
  38.   "Hard Disk Install Script\n\n\n\n"
  39.  )
  40. )
  41. (set #Path-Txt
  42.  (cat "Select the target directory. "
  43.  )
  44. )
  45. (set #Path-Help
  46.  (cat "\nThis section lets you choose the "
  47.   "target directory to install TAFileTagger. \n\n"
  48.   "Default is BBS:\n\n\n"
  49.   @askdir-help
  50.  )
  51. )
  52. (set #Copy-Doc-Txt
  53.  (cat "Copy document files\n"
  54.  )
  55. )
  56. (set #Copy-Help-Txt
  57.  (cat "Copy help files\n"
  58.  )
  59. )
  60. (set #Copy-Working-Txt
  61.  (cat "Copying data from floppy"
  62.  )
  63. )
  64.  
  65. ; Main
  66. (message #Intro-Txt)
  67. (set target
  68.  (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  69.  )
  70. )
  71. (set @default-dest target)
  72. (set
  73.  ;; Configuration
  74.  conf-dir (tackon target "configs")
  75.  ;; User binaries
  76.  bin-dir (tackon target "bin")
  77.  ;; documentation
  78.  doc-dir (tackon target "docs")
  79.  ;; rexx directory
  80.  rexx-dir (tackon target "rexx")
  81.  ;; Bulletin directory
  82.  bull-dir (tackon target "Bulletins")
  83.  ;; Text directory
  84.  Text-dir (tackon target "Text")
  85.  ;;
  86.  System-dir (tackon target "system")
  87.  ;;
  88.  Example-dir (tackon target "Examples")
  89.  ;;
  90.  Rx-Example-dir (tackon Example-dir "Rexx")
  91.  ;;
  92.  Sys-Example-dir (tackon Example-dir "System")
  93.  ;;
  94.  Cfg-Example-dir (tackon Example-dir "Configs")
  95.  ;;
  96.  dir-pat (cat "(" "configs" "|" "bin" "|" "rexx" "|"
  97.           "bulletins" "|" "Text" "|" "System" ")")
  98. )
  99. ;
  100. ;
  101. (copyfiles
  102.   (prompt "Copying to " #target)
  103.   (help @copy-files-help)
  104.   (source "bin/TAFileTagger")
  105.   (dest bin-dir )
  106. )
  107. (copyfiles
  108.   (prompt "Copying to " #target)
  109.   (help @copy-files-help)
  110.   (source "rexx/TAFileTagger.trans")
  111.   (dest rexx-dir )
  112. )
  113. (complete 5)
  114. ;
  115. ; Copy the TAFileTagger tools
  116. ;
  117. (set prgbitmap
  118.   (askoptions
  119.     (prompt "Which parts of the archive do you want to copy?")
  120.     (help   "Just select the files you want to copy.\n\n"
  121.             "TAFileIndex       Indexgenerator\n"
  122.             "TaggerCfgWrite    WB-Configtool to "@app-name"\n"
  123.             "TaggerConCfg      CLI-Configtool to "@app-name"\n"
  124.             "TAAreaExclude     External Tool to exclude fileareas\n"
  125.             "                  by the user.\n"
  126.             "UpdateExcl        Sysop Tool to update the exclude-\n"
  127.             "                  setups of your users.\n"
  128.             "FileCfg2Txt       Nothing special...\n"
  129.    )
  130.  
  131.     (choices "TAFileIndex"
  132.              "TaggerCfgWrite"
  133.              "TaggerConCfg"
  134.              "TAAreaExclude"
  135.              "UpdateExcl"
  136.              "FileCfg2Txt"
  137.     )
  138.  
  139.     (default 7)
  140.   )
  141. )
  142. (if (BITAND prgbitmap 1)
  143.   (copyfiles
  144.     (prompt "Copying to " #target)
  145.     (help @copy-files-help)
  146.     (source "bin/TAFileIndex")
  147.     (dest bin-dir )
  148.   )
  149. )
  150. (if (BITAND prgbitmap 2)
  151.   (copyfiles
  152.     (prompt "Copying to " #target)
  153.     (help @copy-files-help)
  154.     (source "bin/TaggerCfgWrite")
  155.     (dest bin-dir )
  156.   )
  157.   (copyfiles
  158.     (prompt "Copying to " #target)
  159.     (help @copy-files-help)
  160.     (source "bin/TaggerCfgWrite.info")
  161.     (dest bin-dir )
  162.   )
  163. )
  164. (if (BITAND prgbitmap 4)
  165.   (copyfiles
  166.     (prompt "Copying to " #target)
  167.     (help @copy-files-help)
  168.     (source "bin/TaggerConCfg")
  169.     (dest bin-dir )
  170.   )
  171. )
  172. (if (BITAND prgbitmap 8)
  173.   (copyfiles
  174.     (prompt "Copying to " #target)
  175.     (help @copy-files-help)
  176.     (source "bin/TAAreaExclude")
  177.     (dest bin-dir )
  178.   )
  179. )
  180. (if (BITAND prgbitmap 16)
  181.   (copyfiles
  182.     (prompt "Copying to " #target)
  183.     (help @copy-files-help)
  184.     (source "bin/UpdateExcl")
  185.     (dest bin-dir )
  186.   )
  187. )
  188. (if (BITAND prgbitmap 32)
  189.   (copyfiles
  190.     (prompt "Copying to " #target)
  191.     (help @copy-files-help)
  192.     (source "bin/FileCfg2Txt")
  193.     (dest bin-dir )
  194.   )
  195. )
  196. (complete 25)
  197. ;
  198. ;
  199. (if (askbool
  200.       (prompt
  201.        "Install Magic-Rexx Files"
  202.       )
  203.       (help
  204.         "Magic Rexx Files a la Download.trans\n"
  205.       )
  206.      )
  207.      (
  208.       (copyfiles
  209.        (prompt "Copying to " #target)
  210.        (help @copy-files-help)
  211.        (source "rexx/DownLoad.tagger.0")
  212.        (dest rexx-dir )
  213.       )
  214.       (copyfiles
  215.        (prompt "Copying to " #target)
  216.        (help @copy-files-help)
  217.        (source "rexx/UpLoad.tagger.0")
  218.        (dest rexx-dir )
  219.       )
  220.      )
  221. )
  222. (complete 30)
  223.  
  224. ; Copy langfiles
  225. (set langbitmap 0)
  226. (while (= langbitmap 0)
  227.   (set langbitmap
  228.    (askoptions
  229.      (prompt "Which Language do you want to copy?")
  230.      (help   "Just select the files you want to copy.\n\n"
  231.              "Tagger.lang                Default language (German)\n"
  232.              "Tagger.DEUTSCH.lang        German language\n"
  233.              "Tagger.ENGLISH.lang        English language\n"
  234.      )
  235.      (choices "Tagger.lang"
  236.               "Tagger.DEUTSCH.lang"
  237.               "Tagger.ENGLISH.lang"
  238.      )
  239.      (default 1)
  240.    )
  241.   )
  242. )
  243.  
  244.  
  245. (if (BITAND langbitmap 1)
  246.    (copyfiles
  247.       (prompt "Copying to " #target)
  248.       (help @copy-files-help)
  249.          (source "Configs/Tagger.lang")
  250.          (dest Conf-dir )
  251.          (infos)
  252.    )
  253. )
  254. (if (BITAND langbitmap 2)
  255.    (copyfiles
  256.       (prompt "Copying to " #target)
  257.       (help @copy-files-help)
  258.          (source "Configs/Tagger.Deutsch.lang")
  259.          (dest Conf-dir )
  260.          (infos)
  261.    )
  262. )
  263. (if (BITAND langbitmap 4)
  264.    (copyfiles
  265.       (prompt "Copying to " #target)
  266.       (help @copy-files-help)
  267.          (source "Configs/Tagger.English.lang")
  268.          (dest Conf-dir )
  269.          (infos)
  270.    )
  271. )
  272. ; Copy Help-Files
  273. (message #Copy-Help-Txt)
  274. (copyfiles
  275.   (prompt "Copying to " #target)
  276.   (help @copy-files-help)
  277.   (source "Text/TaggerMainHelp.ANSI")
  278.   (dest Text-dir )
  279. )
  280. (copyfiles
  281.   (prompt "Copying to " #target)
  282.   (help @copy-files-help)
  283.   (source "Text/TaggerListHelp.ANSI")
  284.   (dest Text-dir )
  285. )
  286. (copyfiles
  287.   (prompt "Copying to " #target)
  288.   (help @copy-files-help)
  289.   (source "Text/TaggerArcHelp.ANSI")
  290.   (dest Text-dir )
  291. )
  292. (copyfiles
  293.   (prompt "Copying to " #target)
  294.   (help @copy-files-help)
  295.   (source "Text/TaggerAreaHelp.ANSI")
  296.   (dest Text-dir )
  297. )
  298. (copyfiles
  299.   (prompt "Copying to " #target)
  300.   (help @copy-files-help)
  301.   (source "Text/TaggerPrivateHelp.ANSI")
  302.   (dest Text-dir )
  303. )
  304. (copyfiles
  305.   (prompt "Copying to " #target)
  306.   (help @copy-files-help)
  307.   (source "Text/TaggerSysopHelp.ANSI")
  308.   (dest Text-dir )
  309. )
  310. (copyfiles
  311.   (prompt "Copying to " #target)
  312.   (help @copy-files-help)
  313.   (source "Text/TaggerFreqHelp.ANSI")
  314.   (dest Text-dir )
  315. )
  316. (copyfiles
  317.   (prompt "Copying to " #target)
  318.   (help @copy-files-help)
  319.   (source "Bulletins/Tagger.hlp")
  320.   (dest bull-dir )
  321. )
  322. (complete 40)
  323.  
  324. (if (askbool
  325.       (prompt
  326.        "Install Magic-Text Files"
  327.       )
  328.       (help
  329.         ""
  330.       )
  331.      )
  332.      (
  333.       (copyfiles
  334.         (prompt "Copying to " #target)
  335.         (help @copy-files-help)
  336.         (source "Text/PreMarkLimit.ANSI")
  337.         (dest Text-dir )
  338.       )
  339.       (copyfiles
  340.         (prompt "Copying to " #target)
  341.         (help @copy-files-help)
  342.         (source "Text/PreCheckIndex.ANSI")
  343.         (dest Text-dir )
  344.       )
  345.       (copyfiles
  346.         (prompt "Copying to " #target)
  347.         (help @copy-files-help)
  348.         (source "Text/PostUpload.ANSI")
  349.         (dest Text-dir )
  350.       )
  351.       (complete 50)
  352.       (copyfiles
  353.         (prompt "Copying to " #target)
  354.         (help @copy-files-help)
  355.         (source "Text/PreTimeLimit.ANSI")
  356.         (dest Text-dir )
  357.       )
  358.       (copyfiles
  359.         (prompt "Copying to " #target)
  360.         (help @copy-files-help)
  361.         (source "Text/PreRatio.ANSI")
  362.         (dest Text-dir )
  363.       )
  364.      )
  365. )
  366.  
  367. (complete 60)
  368. (message #Copy-Doc-Txt)
  369.  
  370. (if (not (exists (doc-dir )))
  371.     (makedir (doc-dir))
  372. )
  373. (copyfiles
  374.   (prompt "Copying to " #target)
  375.   (help @copy-files-help)
  376.   (source "docs.info")
  377.   (dest target )
  378. )
  379. (copyfiles
  380.   (prompt "Copying to " #target)
  381.   (help @copy-files-help)
  382.   (source "docs/TAFileTagger.dok")
  383.   (dest doc-dir )
  384. )
  385. (copyfiles
  386.   (prompt "Copying to " #target)
  387.   (help @copy-files-help)
  388.   (source "docs/TAFileTagger.dok.info")
  389.   (dest doc-dir )
  390. )
  391. (copyfiles
  392.   (prompt "Copying to " #target)
  393.   (help @copy-files-help)
  394.   (source "docs/TAFileTagger.doc")
  395.   (dest doc-dir )
  396. )
  397. (copyfiles
  398.   (prompt "Copying to " #target)
  399.   (help @copy-files-help)
  400.   (source "docs/TAFileTagger.doc.info")
  401.   (dest doc-dir )
  402. )
  403. (copyfiles
  404.   (prompt "Copying to " #target)
  405.   (help @copy-files-help)
  406.   (source "docs/TAFileTagger_D.dvi")
  407.   (dest doc-dir )
  408. )
  409. (copyfiles
  410.   (prompt "Copying to " #target)
  411.   (help @copy-files-help)
  412.   (source "docs/TAFileTagger_D.dvi.info")
  413.   (dest doc-dir )
  414. )
  415. (copyfiles
  416.   (prompt "Copying to " #target)
  417.   (help @copy-files-help)
  418.   (source "docs/TAFileTagger_E.dvi")
  419.   (dest doc-dir )
  420. )
  421. (copyfiles
  422.   (prompt "Copying to " #target)
  423.   (help @copy-files-help)
  424.   (source "docs/TAFileTagger_E.dvi.info")
  425.   (dest doc-dir )
  426. )
  427. (copyfiles
  428.   (prompt "Copying to " #target)
  429.   (help @copy-files-help)
  430.   (source "Lies.Mich")
  431.   (dest doc-dir )
  432. )
  433. (copyfiles
  434.   (prompt "Copying to " #target)
  435.   (help @copy-files-help)
  436.   (source "Lies.Mich.info")
  437.   (dest doc-dir )
  438. )
  439. (copyfiles
  440.   (prompt "Copying to " #target)
  441.   (help @copy-files-help)
  442.   (source "Read.me")
  443.   (dest doc-dir )
  444. )
  445. (copyfiles
  446.   (prompt "Copying to " #target)
  447.   (help @copy-files-help)
  448.   (source "Read.me.info")
  449.   (dest doc-dir )
  450. )
  451. (copyfiles
  452.   (prompt "Copying to " #target)
  453.   (help @copy-files-help)
  454.   (source "RegForm_D.txt")
  455.   (dest doc-dir )
  456. )
  457. (copyfiles
  458.   (prompt "Copying to " #target)
  459.   (help @copy-files-help)
  460.   (source "RegForm_D.txt.info")
  461.   (dest doc-dir )
  462. )
  463. (copyfiles
  464.   (prompt "Copying to " #target)
  465.   (help @copy-files-help)
  466.   (source "RegForm_E.txt")
  467.   (dest doc-dir )
  468. )
  469. (copyfiles
  470.   (prompt "Copying to " #target)
  471.   (help @copy-files-help)
  472.   (source "RegForm_E.txt.info")
  473.   (dest doc-dir )
  474. )
  475.  
  476. (complete 90)
  477. (if (askbool
  478.       (prompt
  479.        "Install Example Files"
  480.       )
  481.       (help
  482.         ""
  483.       )
  484.      )
  485.      (
  486.       (if (not (exists (example-dir )))
  487.         (makedir (example-dir))
  488.       )
  489.       (if (not (exists (rx-example-dir )))
  490.         (makedir (rx-example-dir))
  491.       )
  492.       (copyfiles
  493.        (prompt "Copying to " #target)
  494.        (help @copy-files-help)
  495.        (source "rexx/PrivUser.logon")
  496.        (dest rx-example-dir )
  497.       )
  498.       (copyfiles
  499.        (prompt "Copying to " #target)
  500.        (help @copy-files-help)
  501.        (source "examples/logoff.trans")
  502.        (dest rx-example-dir )
  503.       )
  504.       (copyfiles
  505.        (prompt "Copying to " #target)
  506.        (help @copy-files-help)
  507.        (source "examples/logon.trans")
  508.        (dest rx-example-dir )
  509.       )
  510.       (if (not (exists (sys-example-dir )))
  511.         (makedir (sys-example-dir))
  512.       )
  513.       (copyfiles
  514.        (prompt "Copying to " #target)
  515.        (help @copy-files-help)
  516.        (source "system/PrivUser")
  517.        (dest sys-example-dir )
  518.       )
  519.       (if (not (exists (cfg-example-dir )))
  520.         (makedir (Cfg-example-dir))
  521.       )
  522.       (copyfiles
  523.        (prompt "Copying to " #target)
  524.        (help @copy-files-help)
  525.        (source "examples/Main.rx")
  526.        (dest Cfg-example-dir )
  527.       )
  528.       (copyfiles
  529.        (prompt "Copying to " #target)
  530.        (help @copy-files-help)
  531.        (source "examples/File.cfg")
  532.        (dest Cfg-example-dir )
  533.       )
  534.      )
  535. )
  536. (complete 100)
  537. (exit "You should read the manuals before you wants to use "
  538.       @app-name
  539.       "\nBefore running "@app-name " you must create a Configfile\n"
  540.       "using TaggerCfgWrite or TaggerConCfg!!!\n"
  541.       "\n\n"
  542.       "Please check this archive with Md5Sum and PGP!"
  543.       "\n"
  544.       "Tia Juergen A.Lamers\n"
  545.       )
  546.  
  547. ; EOF
  548.